# 1. Cargar la librería stringr (y dplyr para el ejemplo)
library(stringr)
library(dplyr)

# 2. Crear nuestros datos de ejemplo
productos <- tibble(
    codigo = c("PROD-1021", "PROD_1022", "PROD-1023", "PROD_1024", "PROD-1025")
)

# 3. Proceso consolidado de detección y reemplazo
reporte_codigos <- productos %>%
    mutate(
        # PASO DE DETECCIÓN: Creamos una columna que nos dice si el formato es antiguo.
        # str_detect() devuelve TRUE si encuentra un guion bajo "_".
        formato_antiguo = str_detect(codigo, "_"),
        
        # PASO DE REEMPLAZO: Creamos una columna con el código corregido.
        # str_replace_all() busca todos los "_" y los reemplaza por "-".
        codigo_corregido = str_replace_all(codigo, "_", "-")
    )

# 4. Mostrar el resultado
print(reporte_codigos)

# 1. Cargar la librería necesaria
library(ggplot2)
library(scales)

# Datos de ejemplo: Ventas mensuales
df <- data.frame(
  mes = 1:6,
  ventas = c(505980, 1250345, 899500, 2150000, 1785100, 450000)
)
# Datos de ejemplo: Crecimiento
df$crecimiento <- c(0.05, 0.12, -0.02, 0.08, 0.15, 0.03)

ggplot(df, aes(x = mes, y = crecimiento)) +
    geom_line() +
    scale_y_continuous(labels = label_percent()) +
    labs(title = "Formato Porcentaje", y = "Crecimiento Mensual")

# 1. Cargar la librería
library(stringi)
# 2. Crear un vector de texto con diversos caracteres especiales
frases_originales <- c(
    "El pingüino se bañó en el río.",
    "José pidió perdón.",
    "Açaí é uma fruta do Brasil.")
# 3. Aplicar la transformación para convertir a ASCII
frases_transformadas <- stri_trans_general(frases_originales, "Latin-ASCII")
# 4. Imprimir para comparar el antes y el después
print("--- ANTES ---")
print(frases_originales)
print("--- DESPUÉS ---")
print(frases_transformadas)
#==========================================================
# 1. Crear un vector con precios en diferentes monedas
precios <- c(
    "Laptop: $999.00",
    "Café: €3.50",
    "Libro: ¥1200",
    "Pasaje de bus: Q5.00"
)
simbolos_encontrados <- stri_extract_all_regex(precios, "\\p{Sc}")
print(simbolos_encontrados)

# 1. Cargar la librería necesaria
library(leaflet)
# 2. Crear el mapa con el pipe %>%
leaflet() %>%
  addTiles() %>%
  setView(lng = -102.5528, lat = 23.6345, zoom = 5)

# 1. Cargar la librería necesaria
library(leaflet)
# 2. Crear el mapa con el pipe %>%
leaflet() %>%
    addTiles() %>%
    flyToBounds(lng1 = -90.2, lat1 = 13.0, lng2 = -87.7, lat2 = 14.5,
                options = list(animate = TRUE))